home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / LEN.for < prev    next >
Text File  |  1991-05-22  |  349b  |  16 lines
  1.       INTEGER FUNCTION LEN(STRNG)
  2.       IMPLICIT NONE
  3.       INTEGER IPTR
  4.       CHARACTER*1 STRNG(40)
  5.       IPTR = 1
  6. 95001 CONTINUE
  7.       IF (STRNG(IPTR).EQ.CHAR(126)) GOTO 95002
  8.       IF (STRNG(IPTR).EQ.CHAR(0)) GOTO 95002
  9.       IPTR = IPTR + 1
  10.       GOTO 95001
  11. 95002 CONTINUE
  12.       STRNG(IPTR) = CHAR(0)
  13.       LEN = IPTR - 1
  14.       RETURN
  15.       END
  16.